home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / outbox.idb / var / www / cgi-bin / wrap.z / wrap
Encoding:
Text File  |  1996-11-14  |  20.3 KB  |  940 lines
  1. #!/usr/bin/perl
  2.  
  3. #__________________________________________________________
  4. #
  5. #    File:    wrap
  6. #    By:      Matt Ho
  7. #   Date:    7/23/95
  8. #   Purpose: Wrapper to dynamically create HTML documents
  9. #            that contain a easy to read directory content.
  10. #__________________________________________________________
  11.  
  12.  
  13. require "flush.pl";
  14.  
  15. #__________________________________________________________
  16. #
  17. #    Set some environment variables, we'll need through the
  18. #    script and do some initial error checking.
  19. #__________________________________________________________
  20.  
  21. $ROOT     = "/var/www/htdocs" ;    # Root directory
  22. $PATH     = $ENV{'PATH_INFO'} ; 
  23. $wrap     = "/cgi-bin/wrap" ;        # Script alias for this CGI
  24. $ls       = "/sbin/ls -a1" ;
  25. $outboxcgi = "/var/www/cgi-bin/outbox-cgi" ;
  26. #__________________________________________________________
  27. #
  28. #    Read the form data in.  PATH_INFO may be passed here
  29. #    if this was called from a SSI.  We're going to make
  30. #    one final tweak and read from the arg list as well
  31. #    for SSI's.
  32. #__________________________________________________________
  33.  
  34. if( $ENV{'REQUEST_METHOD'} eq "GET" )
  35. {
  36.    $buffer=$ENV{'QUERY_STRING'} ;
  37. } 
  38. else
  39. {
  40.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
  41. }
  42.  
  43. @pairs = split(/&/, $buffer) ;
  44. foreach (@pairs)
  45. {
  46.     tr/+/ / ;    
  47.    ($name,$value) =  split(/=/) ;
  48.     $value        =~ s/%(..)/pack("c",hex($1))/ge ;
  49.     $name         =~ s/%(..)/pack("c",hex($1))/ge ;
  50.  
  51.     $FORM{$name} = $value ;
  52. }
  53.  
  54. #_________________________________
  55. #
  56. #    Some basic checks to take
  57. #    care of
  58. #_________________________________
  59.  
  60. if( $ARGV[0] )
  61. {
  62.     $PATH = $ARGV[0] ;
  63.     $arg  = 1 ;
  64. }
  65. chop $PATH if substr($PATH, -1) eq "/" ;
  66. @_        = split('/', $PATH) ;
  67. $pathRoot = $_[$#_] ;
  68. $doc      = $ROOT.$PATH ;
  69.  
  70. &DefaultMesg if ! defined $PATH || $PATH eq "" ;    # Get a base listing =)
  71. &ErrBadPath unless &ValidPath ;    # Check for server spoofing
  72. &ErrBadPath unless -e $doc ;    # Check to see it exists
  73. &HandleDownload if -f $doc ;    # Do the right thing
  74.  
  75. #__________________________________________________________
  76. #
  77. #    If we get to this point, we can be reasonably certain
  78. #    that this is a valid shared directory.  We want to
  79. #    show it using the appropriate method.  The following
  80. #    section is the leading data.  ShowContents will supply
  81. #    the rest of the data.
  82. #
  83. #    We do, however, need to account for the user putting
  84. #    an index.html file in the directory.  We'll handle 
  85. #    that as follows.  If the file exists, it is assumed to
  86. #    be in the right.  We will append out data at the end,
  87. #    using the index.html's head section. Otherwise, we
  88. #    will use ours.
  89. #__________________________________________________________
  90.  
  91. if( $arg == 1 )
  92. {
  93.     #    This is intentionally left blank
  94. }
  95. elsif( -r "$doc/index.html" )
  96. {
  97.     print "Content-type: text/html\n\n" ;
  98.  
  99.     open(INDEX, "$doc/index.html") ;
  100.     while( <INDEX> )
  101.     {
  102.         s/<!--#exec/<!-- exec/g ;
  103.         last if /<\/[bB][oO][dD][yY]>/ ;
  104.         last if /<\/[hH][tT][mM][lL]>/ ;
  105.         print ;
  106.         if ( /<BODY/ || /<body/)
  107.         {
  108.             if ( ! />/ )
  109.             {
  110.             while( <INDEX> )
  111.             {
  112.                 print ;
  113.                 last if ( />/ ) ;
  114.             }
  115.             }
  116.             &flush(STDOUT) ;
  117.             system '/var/www/cgi-bin/outbox-cgi', $PATH;
  118.         }
  119.     }
  120.     close(INDEX) ;
  121. }
  122. else
  123. {
  124.     print <<ENDOFTEXT ;
  125. Content-type: text/html
  126.  
  127. <head>
  128.     <title>
  129.         $pathRoot
  130.     </title>
  131. </head>
  132.  
  133. <body bgcolor="c1c1c1" text="000000" link="0000ee" vlink="0000ee"
  134. alink="0000ff" background="/outbox/images/background.gif">
  135. ENDOFTEXT
  136.  
  137.         &flush(STDOUT) ;
  138.     system '/var/www/cgi-bin/outbox-cgi', $PATH ;
  139.     &flush(STDOUT) ;
  140.     print <<ENDOFTEXT ;
  141. <B>$pathRoot:</B>
  142. ENDOFTEXT
  143. }
  144.  
  145. #
  146. # RFE - people getting confused with all these choices.
  147. #
  148. #  &ShowSelection ;
  149.  
  150. &ShowContents ;
  151.  
  152. print "\n</body>\n</html>\n\n" unless $arg == 1 ;
  153.  
  154.  
  155.  
  156. #__________________________________________________________
  157. #__________________________________________________________
  158. #__________________________________________________________
  159.  
  160.  
  161.  
  162. sub ErrBadPath
  163. {
  164.     print <<ENDOFTEXT ;
  165. Content-type: text/html
  166.  
  167. <HTML>
  168. <HEAD><TITLE>OutBox File Not Found</TITLE></HEAD>
  169. <BODY><H2>OutBox File Not Found</H2>
  170. The requested file "$PATH" was not found on this OutBox page.
  171. <P>
  172. ENDOFTEXT
  173.  
  174. if( defined $ENV{'HTTP_REFERER'} )
  175. {
  176.     $referer = $ENV{'HTTP_REFERER'} ;
  177.     print <<ENDOFTEXT ;
  178. <a href="$referer"><IMG SRC="/outbox/images/go-back.gif" BORDER=0 ALT="Back"></A>
  179. ENDOFTEXT
  180. }
  181.  
  182.         print <<ENDOFTEXT ;
  183. </BODY>
  184. </HTML>
  185. ENDOFTEXT
  186.  
  187.  
  188.     die ;
  189. }
  190.  
  191. #__________________________________________________________
  192.  
  193. sub DefaultMesg
  194. {
  195.     open(FILE, "/etc/passwd") ;
  196.     @passwd = <FILE> ;
  197.     close(FILE) ;
  198.  
  199.     unless( $arg == 1 )
  200.     {
  201.         print <<ENDOFTEXT ;
  202. Content-type: text/html
  203.  
  204. <head>
  205.     <title>
  206.         User List
  207.     </title>
  208. </head>
  209.  
  210. <body>
  211. <h1 align=center> 
  212.     User List
  213. </h1>
  214.  
  215. <hr size=3 width="50%" noshade>
  216. <p>
  217. <h3 align=center>
  218.     This site supports the following users:
  219. </h3>
  220. <p>
  221. <hr size=3 width="50%" noshade>
  222.  
  223. <ul>
  224. ENDOFTEXT
  225.     }
  226.  
  227.     print "<center>\n<table cellpadding=10>\n" ;
  228.  
  229.     open (FIND,"$ls $ROOT |") ;
  230.     while( <FIND> )
  231.     {
  232.         chop ;
  233.         next if $_ eq "\." ;
  234.         next if $_ eq "\.\." ;
  235.         next unless -d "$ROOT/$_" ;
  236.  
  237.         $name = "" ;
  238.  
  239.         foreach $line (@passwd)
  240.         {
  241.             @field = split(':', $line) ;
  242.             @_     = split(',', $field[4]) ;
  243.             ($name = $_[0]), last if $_ eq $field[0] ;
  244.         }
  245.  
  246.         print <<ENDOFTEXT ;
  247. <tr>
  248.     <th align=right>
  249.         <font size=+2>
  250.         <a href="$wrap/$_">$_</a>
  251.         </font>
  252.     </th>
  253.     <td>
  254.         <li>
  255.     </td>
  256.     <td>
  257.         <font size=+2>
  258.         <a href="$wrap/$_">$name</a>
  259.         </font>
  260.     </td>
  261. </tr>
  262. ENDOFTEXT
  263.     }
  264.     close(FIND) ;
  265.  
  266.     print "</table></center>\n</ul>\n</body>\n\n" ;
  267.  
  268.     die ;
  269. }
  270.  
  271. #__________________________________________________________
  272.  
  273. sub ValidPath
  274. {
  275.     return 1 unless /\.\./ ;
  276.     
  277.     return '' if /^\.\./ ;
  278.     return '' if /\/\.\.\// ;
  279.     return '' if /\.\.$/ ;
  280.  
  281.     return 1 ;
  282. }
  283.  
  284. #__________________________________________________________
  285.  
  286. sub HandleDownload
  287. {
  288.     print <<ENDOFTEXT ;
  289. Location: $PATH
  290.  
  291. ENDOFTEXT
  292.  
  293.     die ;
  294. }
  295.  
  296. #__________________________________________________________
  297.  
  298. sub ShowSelection
  299. {
  300.     local(@select) ;
  301.     
  302.     $FORM{'format'} = "default" unless defined $FORM{'format'} ;
  303.     $select{$FORM{'format'}} = "checked" ;
  304.  
  305.     print <<ENDOFTEXT ;
  306.  
  307. <center>
  308. <table cellpadding=2 cellspacing=0 border=0>
  309. <form action="$wrap$PATH" method=get>
  310. <tr>
  311.     <td><b>Viewing format:</b>
  312.         <input    type="radio"
  313.                 name="format"
  314.                 value="default"
  315.                 $select{'default'}> Default
  316.         <input    type="radio"
  317.                 name="format"
  318.                 value="long"
  319.                 $select{'long'}> Long
  320.         <input    type="radio"
  321.                 name="format"
  322.                 value="short"
  323.                 $select{'short'}> Short </th>
  324.     <td align=center>
  325.         <input type="submit" value="Apply"></td>    
  326. </tr>
  327. </form>
  328. </table>
  329. </center>
  330.  
  331. ENDOFTEXT
  332. }
  333.  
  334.  
  335. #__________________________________________________________
  336.  
  337. sub ShowContents
  338. {
  339.     local($format) = $FORM{'format'} ;
  340.  
  341.     #_________________________________
  342.     #
  343.     #    Get the directory and do
  344.     #    some sorting (directories)
  345.     #    come first, then files.
  346.     #_________________________________
  347.  
  348.     open (FIND,"$ls $ROOT$PATH |") ;
  349.     while( <FIND> )
  350.     {
  351.         chop ;
  352.         next if $_ eq "\." ;
  353.         next if ( $_ eq "\.\." && "/$pathRoot" eq  $PATH ) ;
  354.         next if ( /^\./ && $_ ne "\.\." ) ;
  355.         next if ( ! -r "$ROOT$PATH/$_" ) ;
  356.         next if ( -d "$ROOT$PATH/$_" && ! -x "$ROOT$PATH/$_" ) ;
  357.         push(@d, $_), next if -d "$ROOT$PATH/$_" ;
  358.         push(@f, $_) ;
  359.     }
  360.  
  361.     #_________________________________
  362.     #
  363.     #    Select method of display
  364.     #_________________________________
  365.  
  366.     &ListFolders(@d) ;
  367.  
  368.     $format = "default" if ! defined $format ;
  369.  
  370.     if( $format eq "long" )
  371.     {
  372.         &ListLong(@f) ;
  373.     }
  374.     elsif( $format eq "short" )
  375.     {
  376.         &ListShort(@f) ;
  377.     }
  378.     else        # default format
  379.     {
  380.         &ListDefault(@f) ;
  381.     }
  382. }
  383.  
  384. #__________________________________________________________
  385.  
  386. sub ListFolders
  387. {
  388.     local($size) = $#_ + 1 ;
  389.     local($i) ;
  390.     local($j) ;
  391.     local($index) ;
  392.     local($format) ;
  393.     local($cols) = 3 ;
  394.     local($rows) = $size / $cols ;
  395.     local($left) = $size % $cols ;
  396.     local($label) ;
  397.     local($image) ;
  398.  
  399.     return if $size == 0 ;
  400.  
  401.     #_________________________________
  402.  
  403.     $format = "?format=$FORM{'format'}" if defined $FORM{'format'} ;
  404.  
  405.     #_________________________________
  406.  
  407.     $rows = sprintf("%.0d", $rows) ;
  408.     $rows++ if $left > 0 ;
  409.     
  410.     print <<ENDOFTEXT ;
  411. </center>
  412. <table cellpadding=0 cellspacing=0 width="100%" border=0>
  413. ENDOFTEXT
  414.     LOOP:
  415.     for( $i = 0 ; $i < $rows ; $i++ )
  416.     {
  417.         print "<tr>\n" ;
  418.         for( $j = 0 ; $j < $cols ; $j++ )
  419.         {
  420.             $index = $i + $j * $rows ;
  421.  
  422.             if( $index >= $size )
  423.             {
  424.                 print "<td></td>\n" ;
  425.                 next ;
  426.             }
  427.             if ( $_[$index] eq ".." )
  428.             {
  429.                 $label = "" ;
  430.                 $image = "/outbox/images/go-back.gif" ;
  431.             }
  432.             else
  433.             {
  434.                 $label = "$_[$index]" ;
  435.                 $image = "/outbox/images/file_folder.gif" ;
  436.             }
  437.  
  438.             print <<ENDOFTEXT ;
  439. <td>
  440.     <a href="$wrap$PATH/$_[$index]/$format"><img src="$image" align=middle border=0></a>
  441. ENDOFTEXT
  442.                         if ( $label ne "" )
  443.             {
  444.                 print "  <a href=\"$wrap$PATH/$_[$index]/$format\">$label</a>" ;
  445.                 }
  446.             print "</td>"
  447.         }
  448.         print "</tr>\n" ;
  449.     }
  450.  
  451.     print <<ENDOFTEXT ;
  452. </table>
  453. ENDOFTEXT
  454. }
  455.  
  456. #__________________________________________________________
  457.  
  458. sub ListDefault
  459. {
  460.     local(@notes) ;
  461.     local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,@other) ;
  462.     local($USERPATH) = $PATH ;
  463.     local($first) = 1 ;
  464.     local($image) ;
  465.     local($url) ;
  466.  
  467.     $dltext = `/usr/bin/gettxt uxoutbox:22 "(download)"` ;
  468.  
  469.     return if ( $#_ == -1 ) ;
  470.  
  471.     substr($USERPATH, 0, 1) = "/~" ;
  472.  
  473.     print <<ENDOFTEXT ;
  474.  
  475. </center>
  476. <div align=left>
  477. ENDOFTEXT
  478.  
  479.     foreach (@_)
  480.     {
  481.         next if $_ eq "index\.html" ;
  482.         next if $_ eq "index\.html\.O" ;
  483.         next if $_ eq "index\.html\.N" ;
  484.         next if $_ eq "index\.shtml" ;
  485.         next if $_ eq "index\.shtml\.O" ;
  486.         next if $_ eq "index\.shtml\.N" ;
  487.         next if $_ eq "default\.gif" ;
  488.         next if ( /^\./ ) ;
  489.         next if ( /\.bak$/ ) ;
  490.         next if ( /\.sav$/ ) ;
  491.         next if ( /~$/ ) ;
  492.  
  493.         if ( /\.notes$/ )
  494.         {
  495.             $base = $_ ;
  496.             $base =~ s/\.notes$// ;
  497.             next if -r "$doc/$base" ;
  498.         }
  499.  
  500.         if ($first == 1)
  501.         {
  502.             $first = 0 ;
  503.             print "<HR ALIGN=LEFT WIDTH=\"80%\">\n" if ($#d >= 0) ;
  504.             print "<table cellpadding=0 cellspacing=1 border=0>" ;
  505.         }
  506.  
  507.         #_________________________________
  508.         #
  509.         #    Calculate the size of this
  510.         #    file
  511.         #_________________________________
  512.  
  513.         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,@other) =
  514.             stat("$doc/$_") ; 
  515.  
  516.         if( $size == 1 )
  517.         {
  518.             $size = "<b>$size</b> byte" ;
  519.         }
  520.         elsif( $size >= 1024 )
  521.         {
  522.             $size = $size / 1024 ;
  523.             $size = sprintf("%.0d", $size) ;
  524.             $size = "<b>$size</b> KB" ;
  525.         }
  526.         else
  527.         {
  528.             $size = "<b>$size</b> bytes" ;
  529.         }
  530.  
  531.         #_________________________________
  532.         #
  533.         #    Add notes if applicable
  534.         #_________________________________
  535.  
  536.         if( -r "$doc/$_.notes" )
  537.         {
  538.             open(DATA, "$doc/$_.notes") ;
  539.             @notes = <DATA> ;
  540.             close(DATA) ;
  541.         }
  542.         
  543.         #_________________________________
  544.         #
  545.         # figure out which image to use
  546.         #_________________________________
  547.  
  548.         # defaults
  549.  
  550.         $image = "" ;
  551.         $url = "" ;
  552.  
  553.         # audio
  554.  
  555.         $image = "file_audio.gif" if ( /\.[aA][uU]$/ ) ;
  556.         $image = "file_audio.gif" if ( /\.[aA][iI][fF]$/ ) ;
  557.         $image = "file_audio.gif" if ( /\.aif[cf]$/ ) ;
  558.         $image = "file_audio.gif" if ( /\.[sS][nN][dD]$/ ) ;
  559.         $image = "file_audio.gif" if ( /\.[wW][aA][vV]$/ ) ;
  560.         $image = "file_audio.gif" if ( /\.[rR][aA]$/ ) ;
  561.         $image = "file_audio.gif" if ( /\.[rR][aA][mM]$/ ) ;
  562.         $image = "file_audio.gif" if ( /\.[aA][bB][sS]$/ ) ;
  563.         $image = "file_audio.gif" if ( /\.[mM][pP][2a]$/ ) ;
  564.         $image = "file_audio.gif" if ( /\.[mM][pP][2a][2a]$/ ) ;
  565.         $image = "file_audio.gif" if ( /\.[mM][pP][eE][gG][aA]$/ ) ;
  566.  
  567.         # image
  568.  
  569.         $image = "file_image.gif" if ( /\.[gG][iI][fF]$/ ) ;
  570.         $image = "file_image.gif" if ( /\.[iI][eE][fF]$/ ) ;
  571.         $image = "file_image.gif" if ( /\.tiff$/ ) ;
  572.         $image = "file_image.gif" if ( /\.[tT][iI][fF]$/ ) ;
  573.         $image = "file_image.gif" if ( /\.[jJ][pP][gG]$/ ) ;
  574.         $image = "file_image.gif" if ( /\.jpeg$/ ) ;
  575.         $image = "file_image.gif" if ( /\.[jJ][pP][eE]$/ ) ;
  576.         $image = "file_image.gif" if ( /\.rgb$/ ) ;
  577.         $image = "file_image.gif" if ( /\.ras$/ ) ;
  578.         $image = "file_image.gif" if ( /\.pcd$/ ) ;
  579.         $image = "file_image.gif" if ( /\.p[nbgp]m$/ ) ;
  580.         $image = "file_image.gif" if ( /\.x[bp]m$/ ) ;
  581.         $image = "file_image.gif" if ( /\.xwd$/ ) ;
  582.         $image = "file_image.gif" if ( /\.icon$/ ) ;
  583.         $image = "file_image.gif" if ( /\.fti$/ ) ;
  584.  
  585.         # video
  586.  
  587.         $image = "file_movie.gif" if ( /\.movie$/ ) ;
  588.         $image = "file_movie.gif" if ( /\.[mM][oO][vV]$/ ) ;
  589.         $image = "file_movie.gif" if ( /\.moov$/ ) ;
  590.         $image = "file_movie.gif" if ( /\.[mM][vV]$/ ) ;
  591.         $image = "file_movie.gif" if ( /\.[qQ][tT]$/ ) ;
  592.         $image = "file_movie.gif" if ( /\.[aA][vV][iI]$/ ) ;
  593.         $image = "file_movie.gif" if ( /\.[mM][pP][eEgGsSvV]$/ ) ;
  594.         $image = "file_movie.gif" if ( /\.[mM][pP][2sSvV][2sSvV]$/ ) ;
  595.         $image = "file_movie.gif" if ( /\.[mM][pP][eE][gG]$/ ) ;
  596.         $image = "file_movie.gif" if ( /\.[mM][pP][eE][gG][vV]$/ ) ;
  597.  
  598.         # html
  599.  
  600.         $image = "file_html.gif" if ( /\.[hH][tT][mM][lL]$/ ) ;
  601.         $image = "file_html.gif" if ( /\.[hH][tT][mM]$/ ) ;
  602.         $image = "file_html.gif" if ( /\.[sS][hH][tT][mM][lL]$/ ) ;
  603.  
  604.         # PostScript
  605.  
  606.         $image = "file_ps.gif" if ( /\.[pP][sS]$/ ) ;
  607.         $image = "file_ps.gif" if ( /\.[eE][pP][sS]$/ ) ;
  608.  
  609.         # text
  610.  
  611.         $image = "file_text.gif" if ( /\.[tT][xX][tT]$/ ) ;
  612.         $image = "file_text.gif" if ( /\.[rR][tT][xX]$/ ) ;
  613.         $image = "file_text.gif" if ( /\.[rR][tT][fF]$/ ) ;
  614.         $image = "file_text.gif" if ( /\.doc$/ ) ;
  615.         $image = "file_text.gif" if ( /\.fm$/ ) ;
  616.         $image = "file_text.gif" if ( /\.mif$/ ) ;
  617.  
  618.         # development
  619.  
  620.         $image = "file_makefile.gif" if ( /[Mm]akefile.*$/ ) ;
  621.         $image = "file_core.gif" if ( $_ eq "core" ) ;
  622.         $image = "file_h.gif" if ( /\.[hH]$/ ) ;
  623.         $image = "file_c.gif" if ( /\.c$/ ) ;
  624.         $image = "file_cxx.gif" if ( /\.[cC[xX][xX]$/ ) ;
  625.         $image = "file_cxx.gif" if ( /\.[cC]\+\+$/ ) ;
  626.         $image = "file_cxx.gif" if ( /\.C$/ ) ;
  627.         $image = "file_cxx.gif" if ( /\.[cC][cC]$/ ) ;
  628.         $image = "file_obj.gif" if ( /\.[oO]$/ ) ;
  629.         $image = "file_java.gif" if ( /\.java$/ ) ;
  630.         $image = "file_javaclass.gif" if ( /\.class$/ ) ;
  631.  
  632.         # showcase
  633.  
  634.         $image = "file_showcase.gif" if ( /\.sc$/ ) ;
  635.         $image = "file_showcase.gif" if ( /\.slides$/ ) ;
  636.         $image = "file_showcase.gif" if ( /\.sho$/ ) ;
  637.         $image = "file_showcase.gif" if ( /\.show$/ ) ;
  638.  
  639.         # command scripts
  640.  
  641.         $image = "file_shell.gif" if ( /\.pl$/ ) ;
  642.         $image = "file_shell.gif" if ( /\.sh$/ ) ;
  643.         $image = "file_shell.gif" if ( /\.csh$/ ) ;
  644.  
  645.         # DOS/Windows
  646.  
  647.         $image = "file_ms_exe.gif" if ( /\.[bB][aA][tT]$/ ) ;
  648.         $image = "file_ms_exe.gif" if ( /\.[eE][xX][eE]$/ ) ;
  649.         $image = "file_ms_exe.gif" if ( /\.[cC][oO][mM]$/ ) ;
  650.         $image = "file_ms_pp.gif" if ( /\.[pP][pP][tT]$/ ) ;
  651.         $image = "file_ms_access.gif" if ( /\.[aA][dD][bB]$/ ) ;
  652.         if ( /\.[xX][lL].$/ )
  653.         {
  654.             open(FILE, "$ROOT/$PATH/$_") ;
  655.             read(FILE,$buf,3);
  656.             $image = "file_ms_excel.gif"
  657.             if (substr($buf,0,2) eq "\xd0\xcf" ||
  658.                 substr($buf,0,1) eq "\x09" &&
  659.                 substr($buf,2,1) eq "\x06") ;
  660.             close(FILE);
  661.         }
  662.         if ( /\.[dD][oO][cCtT]$/ )
  663.         {
  664.             open(FILE, "$ROOT/$PATH/$_") ;
  665.             read(FILE,$buf,2);
  666.             $image = "file_ms_word.gif"
  667.             if ($buf eq "\xfe\x37" ||
  668.                 $buf eq "\xdb\xa5" ||
  669.                 $buf eq "\xd0\xcf") ;
  670.             close(FILE);
  671.         }
  672.         if ( /\.[fF][mM]$/ )
  673.         {
  674.             open(FILE, "$ROOT/$PATH/$_") ;
  675.             read(FILE,$buf,4);
  676.             $image = "file_claris_fm.gif"
  677.             if ($buf eq "\x00\x01\x00\x00" ||
  678.                 $buf eq "\x00\x02\x00\x00") ;
  679.             close(FILE);
  680.         }
  681.  
  682.  
  683.         # other
  684.  
  685.         $image = "file_iv.gif" if ( /\.iv$/ ) ;
  686.         $image = "file_iv.gif" if ( /\.ano$/ ) ;
  687.         $image = "file_tar.gif" if ( /\.[tT][aA][rR]$/ ) ;
  688.         $image = "file_compress.gif" if ( /\.[gG][zZ]$/ ) ;
  689.         $image = "file_compress.gif" if ( /\.[tT][gG][zZ]$/ ) ;
  690.         $image = "file_compress.gif" if ( /\.Z$/ ) ;
  691.         $image = "file_vrml.gif" if ( /\.vrml$/ ) ;
  692.         $image = "file_vrml.gif" if ( /\.vrml\.gz$/ ) ;
  693.         $image = "file_vrml.gif" if ( /\.wrl$/ ) ;
  694.         $image = "file_vrml.gif" if ( /\.wrl\.gz$/ ) ;
  695.         $image = "file_midi.gif" if ( /\.[mM][iI][dD]$/ ) ;
  696.         $image = "file_midi.gif" if ( /\.[mM][iI[dD][iI]$/ ) ;
  697.         $image = "file_pdf.gif" if ( /\.[pP][dD][fF]$/ ) ;
  698.         $image = "file_director.gif" if ( /\.[dD][cCxXiI][rR]$/ ) ;
  699.  
  700.         # generic ms-windows application data
  701.                 # (i.e. has suffix, no types above match)
  702.         if ( $image eq "" && /..*\...*$/ )
  703.         {
  704.             open(FILE, "$ROOT/$PATH/$_") ;
  705.             read(FILE,$buf,16);
  706.             $image = "file_ms_generic.gif"
  707.             if ($buf eq "\xd0\xcf\x11\xe0\xa1\xb1\x1a\xe1\x00\x00\x00\x00\x00\x00\x00\x00" ||
  708.                 $buf eq "\x09\x04\x06\x00\x00\x00\x10\x00\xf6\x05\x5c\x00\x20\x00\x03\x2e") ;
  709.             close(FILE);
  710.         }
  711.  
  712.         # types without suffix
  713.         
  714.         if ( $image eq "" )
  715.         {
  716.             open(FILE, "$ROOT/$PATH/$_") ;
  717.             if ( $string = <FILE> )
  718.             {
  719.             # WebJumper
  720.             if ( $string =~ /^\#SGIWebJumpsite/ )
  721.             {
  722.                 $image = "file_webjumper.gif" ;
  723.                 while ( $string = <FILE> )
  724.                 {
  725.                 $string =~ s/\n$// ;
  726.  
  727.                 # look for ://
  728.                 if ( $string =~ /:\/\// )
  729.                 {
  730.                     # don't view it, go to it.
  731.                     $url = $string ;
  732.                     last ;
  733.                 }
  734.                 else
  735.                 {
  736.                     # use as a note, if no .notes file
  737.                     @notes = ( $string )
  738.                     if ( @notes == 0 &&
  739.                          $string ne "URL Pasted into Desktop" ) ;
  740.                 }
  741.                 }
  742.             }
  743.  
  744.             # command script
  745.             $image = "file_shell.gif" if ( $string =~ /^\#!\/bin\/.*sh/ ) ;
  746.             $image = "file_shell.gif" if ( $string =~ /^\#!\/usr\/s*bin\/perl/ ) ;
  747.             }
  748.             close(FILE) ;
  749.         }
  750.  
  751.         # generic executable
  752.         
  753.         if ( $image eq "" )
  754.         {
  755.             $image = "file_exec.gif" if ( -x "$ROOT/$PATH/$_" ) ;
  756.         }
  757.  
  758.         # default to generic data file icon
  759.  
  760.         $image = "file_data.gif" if ( $image eq "" ) ;
  761.  
  762.         # default to view data
  763.  
  764.         $url = "$USERPATH/$_" if ( $url eq "" ) ;
  765.  
  766.         #_________________________________
  767.         #
  768.         #    Diplay the data in table form
  769.         #_________________________________
  770.  
  771.         print <<ENDOFTEXT ;
  772. <tr>
  773.     <td>
  774.         <a href="$url"><img src="/outbox/images/$image" align=middle border=0></a>
  775.     </td>
  776.     <td>
  777.         <a href="$url">$_</a>
  778.     </td>
  779.     <td>
  780.         $size
  781.     </td>
  782.     <td align=left>
  783.         <a href="/cgi-bin/handler$PATH/$_?data=Download">$dltext</a>
  784.     </td>
  785. ENDOFTEXT
  786.  
  787.         #_________________________________
  788.         #
  789.         #    If there is a .notes file,
  790.         #    show the message within the
  791.         #    HTML doc.
  792.         #_________________________________
  793.  
  794.         if ( @notes > 0 )
  795.         {
  796.             print "<td>" ;
  797.             foreach (@notes)
  798.             {
  799.                 print ;
  800.             }
  801.             print "</td>\n" ;
  802.             @notes = () ;
  803.         }
  804.         print "</tr>\n" ;
  805.     }
  806.     print "</table></center>\n" if $first == 0 ;
  807. }
  808.  
  809. #__________________________________________________________
  810.  
  811. sub ListShort
  812. {
  813.     local($size) = $#_ + 1 ;
  814.     local($i) ;
  815.     local($j) ;
  816.     local($index) ;
  817.     local($cols) = 3 ;
  818.     local($rows) = $size / $cols ;
  819.     local($left) = $size % $cols ;
  820.  
  821.     return if $size == 0 ;
  822.  
  823.     $rows = sprintf("%.0d", $rows) ;
  824.     $rows++ if $left > 0 ;
  825.     
  826.     print <<ENDOFTEXT ;
  827.  
  828. </center>
  829. <h3>Shared Files:</h3>
  830.  
  831. <table cellpadding=5 cellspacing=3 border width="100%"><tr><td>
  832. <table cellpadding=3 width="100%">
  833. ENDOFTEXT
  834.     LOOP:
  835.     for( $i = 0 ; $i < $rows ; $i++ )
  836.     {
  837.         print "<tr>\n" ;
  838.         for( $j = 0 ; $j < $cols ; $j++ )
  839.         {
  840.             $index = $i + $j * $rows ;
  841.             if( $index >= $size )
  842.             {
  843.                 print "<td></td>\n" ;
  844.                 next ;
  845.             }
  846.             print <<ENDOFTEXT ;
  847. <td>
  848.     <a href="$PATH/$_[$index]">
  849.         <img src="/outbox/images/file_data.gif" align=middle border=0>  
  850.         $_[$index]
  851.     </a>
  852. </td>
  853. ENDOFTEXT
  854.         }
  855.         print "</tr>\n" ;
  856.     }
  857.  
  858.     print <<ENDOFTEXT ;
  859. </table>
  860. </td></tr></table>
  861. ENDOFTEXT
  862. }
  863.  
  864. #__________________________________________________________
  865.  
  866. sub ListLong
  867. {
  868.     local($unit) ;
  869.     local(@other) ;
  870.     local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size) ;
  871.     local($atime, $mtime, $ctime) ;
  872.     local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) ;
  873.     
  874.     return if $#_ == -1 ;
  875.     
  876.     print <<ENDOFTEXT ;
  877.  
  878. <h3>Shared Files:</h3>
  879. <table cellpadding=5 cellspacing=3 border width="100%">
  880. <tr><td>
  881. <pre>
  882.  
  883. ENDOFTEXT
  884.  
  885.     foreach (@_)
  886.     {
  887.         #_________________________________
  888.         #
  889.         #    stat document and get the 
  890.         #    pertinent info on it.  Also
  891.         #    get a unit for the size, ie
  892.         #    bytes or Kb, etc
  893.         #_________________________________
  894.         
  895.         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  896.             $atime, $mtime, $ctime, @other) =
  897.             stat("$doc/$_") ; 
  898.  
  899.         if( $size == 1 )
  900.         {
  901.             $unit = "byte" ;
  902.         }
  903.         elsif( $size >= 1024 )
  904.         {
  905.             $size = $size / 1024 ;
  906.             $size = sprintf("%.0d", $size) ;
  907.             $unit = "KB" ;
  908.         }
  909.         else
  910.         {
  911.             $unit = "bytes" ;
  912.         }
  913.  
  914.         #_________________________________
  915.         #
  916.         #    Get last mod time
  917.         #_________________________________
  918.  
  919.         ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,@other) = 
  920.             localtime($ctime) ;
  921.         $theDay   = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday] ;
  922.         $theMonth = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon] ;
  923.         $date     = sprintf("$theDay $theMonth $mday %02d:%02d:%02d 19$year",
  924.                             $hour, $min, $sec) ;
  925.  
  926.         #_________________________________
  927.  
  928.         local($filler) = " " x (25 - length($_)) ;
  929.         $filler = 0 if $filler < 0 ;
  930.         print sprintf("<a href=\"$PATH/$_\"><img src=\"/outbox/images/file_data.gif\" align=middle border=0>  %.25s</a>%s %6d %-5.5s %s\n", $_, $filler, $size, $unit, $date) ;
  931.     }
  932.  
  933.     print <<ENDOFTEXT ;
  934. </pre>
  935. </td></tr>
  936. </table>
  937. ENDOFTEXT
  938. }
  939.  
  940.